home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
easyk110.zip
/
DIAL.INI
< prev
next >
Wrap
Text File
|
1988-11-27
|
7KB
|
87 lines
;DIAL.INI designed for EasyK by R.A. Elnicki, DIS, CBA, University of Florida 1
; Copyright 1987 by R.A. Elnicki 2
; (86 lines, 85 numbered) 3
; 4
;SET BAUD 1200 ; Activate one baud rate and comment out 5
SET BAUD 2400 ; the other baud rate (2400 active here). 6
CLEAR ; Clear the chosen port buffers. 7
SET INPUT TIMEOUT-ACTION PROCEED ; Continue in the script if timed out. 8
PAUSE 1 ; Modem work time buffer. 9
RUN CLS ; Clear the display screen. 10
ECHO \13 EasyK will enter all commands necessary to sign on. Do NOT enter ;11
ECHO \13 anything until you are asked to do so. EasyK's next action is ;12
ECHO \13 described at each step in the programmed sign-on process. The ;13
ECHO \13 number will be tried three times (40 seconds each) and then you ;14
ECHO \13 will be returned to the EasyK prompt. If the selected service ;15
ECHO \13 cannot be signed onto, the reason for the failure is given and ;16
ECHO \13 you will be returned to the EasyK prompt. ;17
ECHO \13\10 *************************************************************** ;18
ECHO \13 * To display the EasyK-3270 keyboard, enter "Alt" with "x" * ;19
ECHO \13 * and then "do listkb" any time during a VTAM session. * ;20
ECHO \13 *************************************************************** ;21
PAUSE 3 ; Wait for 3 seconds to read the above. 22
ECHO \13\10Resetting your modem next (should respond "OK" twice)... ;23
OUTPUT AT &F &C1 &D2 &W\13 ; Hayes 2400 SmartModem factory set, data 24
; carrier suitable for 2400 SM, goes on 25
PAUSE 3 ; hook no auto-answer, store, wait 3 sec. 26
OUTPUT +++ ; Return modem to command state. 27
PAUSE 3 ; Wait for 3 seconds for modem work. 28
CLEAR ; Clear prior OK from buffer for next IF... 29
OUTPUT ATZ\13 ; Load modem config, do modem self test. 30
INPUT 10 OK ; Wait 10 seconds for modem to send "OK". 31
IF SUCCESS GOTO DIAL ; Can dial if modem returns "OK". 32
ECHO \13\10Modem did not respond correctly, returning to EasyK prompt. ;33
PAUSE 2 ;34
GOTO OUT ;Go to script exit sequence. 35
:DIAL ; Branch point for successful "OK". 36
SET COUNT 3 ; Dial up to 3 times. 37
:RETRY ; Branch back loop point for redialing 38
ECHO \10\13 Dialing the 2400 baud number 392-9177 on a rotary phone not on ;39
ECHO \13 the UF 392 exchange with ringing muted and call waiting disabled. ;40
ECHO \13\10 ;41
OUTPUT ATMD1170,3929177\13 ;42
PAUSE 1 ;43
ECHO \13\10Waiting for "CONNECT" to 7171 next (times out at 40 seconds)... ;44
INPUT 40 CONNECT ;45
IF SUCCESS GOTO MADEIT ;Go to MADEIT if CONNECT is returned. 46
OUTPUT +++ ;Reset modem again to redial... 47
PAUSE 3 ;48
OUTPUT ATZ\13 ;49
PAUSE 3 ;50
ECHO \13\10 No "CONNECT" given in 40 seconds, dialing again ... (Ho Humm) ;51
IF COUNT GOTO RETRY ;52
PAUSE 2 ;53
RUN CLS ;54
ECHO \10\13+--------------------------------------------------------------+ ;55
ECHO \13| Dialing not successful in 3 tries at 50 seconds each. Bye...| ;56
ECHO \13+--------------------------------------------------------------+ ;57
ECHO \10\13 ;58
PAUSE 2 ;59
GOTO OUT ;Go to script exit sequence. 60
:MADEIT ;61
ECHO \13\10Sending carriage return next for baud detect by 7171 next... ;62
PAUSE 1 ;63
OUTPUT \13 ;64
ECHO \13\10Waiting for 7171 to send "ENTER TERMINAL TYPE" next... ;65
INPUT 10 ENTER TERMINAL TYPE: ;66
IF SUCCESS GOTO NVTAM ;67
OUTPUT \13\10Did not find "ENTER TERMINAL TYPE"; back to EasyK. ;68
PAUSE 2 ;69
GOTO OUT ;Go to script exit sequence. 70
:NVTAM ;71
SET INPUT ECHO OFF ;72
ECHO \13\10Entering the "VT100" terminal type next... ;73
OUTPUT VT100\13 ;74
INPUT 20 NERDC VTAM IS ACTIVE ;75
IF SUCCESS GOTO SERVICE ;76
OUTPUT \13\10Did not find "VTAM IS ACTIVE"; back to EasyK. ;77
PAUSE 2 ;78
:OUT ;79
OUTPUT +++ ;Reset modem & return to Easyk prompt. 80
PAUSE 3 ;81
OUTPUT ATZ\13 ;82
PAUSE 3 ;83
STOP ;84
:SERVICE ;A service.INI is next invoked by a macro. 85
; End.